AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AAA AAA 
AAA ABR 
AAA AAA 
AAA ALA 
AAA Bib 
slat AA 
Aba AAA 
AAA AAA 
RRA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAR AAA 
AKA ABA 
ALB AAA 
RAR AAA 
AAA AAA 
bhh ABA 
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RRRRRRRR MM MM SSSSSSSS CCCCCCCC =H HH EEEEEEEEEE CCCCCCCC OCKK KK AAAAAA 
RRRRRRRR MM MM SSSSSSSS CCCCCCCC «OHH HH EEEEEEEEEE CCCCCCCC SOCKK KK AAAAAA 
RR RR MMMM MMMM SS CC HH HH EE cc KK KK AA AA 
RR RR MMMM MMMM SS CC HH HH EE CC KK KK AA AA 
RR RR MM MM MM SS CC HH HH EE CC KK KK fa on 
RR RR MM MM MM SS CC HH HH EE CC KK AA LY, 
RRRRRRRR MM MM SSSSSS cc HHHHHHHHHH § EEEEEEEE CC KKKKKK AA ae 
RRRRRRRR MM MM SSSSSS CC HHHHHHHHHH EEEEEEEE cc KKKKKK AA AA 
RR RR MM MM o> «ft HH HH EE CC KK KK ARAARAAARA 
RR RR MM MM sS CC HH HH EE CC KK KK AAAAAAAAAA 
RR RR MM MM SS CC HH HH EE CC KK KK AA AA 
RR RR MM MM ss CC HH HH EE cc KK KK AA Aa 
RR RR MM MM SSSSSSSS CCCCCCCC HH HH EEEEEEEEEE CCCCCCCC CKK KK AA Aa 
RR RR MM MM SSSSSSSS CcCCCCCC «OHH HH EEEEEEEEEE Cccccccc =KK KK AA an 
LL 1111 SSSSSSSS 
LL INI11] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
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CHE tka B52; :1 


message symbols are unique across alT ANALYZEs. This 
is necessitated by the new merged message files. 


v03-004 PCA1001 Paul C. Anagnostopoulos 55-Nov-1982 
Add code to support the new /SUMMARY mode. 
Trim the command Line before Seoteaten it in the report. 


0001 O &title "RMSCHECKA = Check a File Structure’ 
4 0 module rmschecka_ 
0005 1 ident='V04-000') = begin 
0004 1 
0005 1! 
44 : paneer ot pega, eee perso ese 
if 
0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
ety : .* ALL RIGHTS RESERVED. ¥ 
7% & 
Oorg 1 '* THIS SOFTWARE IS FURNISHED 1upoee A LICENSE AND MAY BE USED AND COPIED * 
0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
pete : .* TRANSFERRED. * 
.* * 
0019 1 !* THE a IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 8 
Boss : .* CORPORATION. * 
‘* * 
0023 1 !'= DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR + + iamatnpesclde OF ITS * 
oose ! w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
.* * 
0026 1 !* % 
0027 1 LRA RRR REREEAE RE REAERAA RR EAEEREAAAEAEEAEEAEREREAAAAAAERARARATEAEEEEE EERE 
0028 1! 
0029 1 
0030 1 !++¢ 
ooRs : Facility: VAX/VMS Analyze Facility, Check a File Structure 
0033 1! Abstract: This module is responsible for sores tng the structure of 
0034 1! an RMS file as requested via /CHECK t also prepares a 
0035 1! report of the results. 
0036 1! 
0037 1! 
0038 1 ! Environment: 
0039 1! 
98 : Author: Paul C. Anagnostopoulos, Creation Date: 20 February 1981 
004 Modified By: 
0044 1! v03-006 DGB0047 Donald G. Blair 08-May- -1984 
0045 1! Fix condition anes wae so ANALYZRMS returns the correct 
0046 1! error status at image exit. Change condition handler 
nt 4 : from ANLSCONDITION_HANDLER to ANLSUNWIND_HANDLER. 
0049 1! v03-005 PCA1011 Paul C. Anagnoste oulos 1-Apr-1983 
0050 1 Change the message prefix to ANLRMS$_ to ensure that 
i 
1 i 
1 ' 
1 ‘ 
1 4 
1 ' 
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v03-003 PCA0061 | Paul Anagnostopoulos 29-Mar-1982 
Fix bug in ANLS$PROLOG_CHECKSUMS so it calculates the 
number of prologue blocks correctly. 


v03-002 PCA0006 Paul Anagnostopoulos 16-Mar-1982 
Modify table of stream record delimiters to conform 
to new standard. 


v03-001 PCA0005 _ Paul Anagnostopoulos 16-Mar-1982 
Fix relative file checking so that it doesn't choke 
on a file with no records. 
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a B070 ! Asbttl "Module Declarations’ 

7 Bors 1! Libraries and Requires: 

74 00735 1! 

75 0074 1 

76 0075 1 Library ‘Lib’; 

77 0076 1 require 'rmsreq'; 

78 0585 1 

79 0586 1! 

80 0587 1 ! Table of Contents: 

81 0588 #1! 

8 0589 1 ; 

8 0590 1 forward routine 

84 0591 «1 anl$check_mode: novalue, 

85 0398 1 anl$seq_check: novalue, 

86 0593 1 anl$seq_data_record, 

87 0594 +1 anl$stream_record_length, 
88 0595 1 anl$rel_check: novalue, 

89 0596 1 anl$rel_prolog: novalue, 

90 0597 1 anl$rel_cell, 

91 0598 #1 anl$prolog_checksums: novalue; 
92 0599 1 

93 0600 1! 

94 0601 1 ! External References: 

95 0602 1! 

96 0603 1 

97 0604 1 external routine 

98 0605 1 anl$bucket, 

99 0606 1 anl$check_flags, 

100 0607 1 anl$error_count, 
101 0608 1 anl$format_error, |. 
102 0609 1 anl$format_file_attributes, 
103 0610 1 anl$format_file_header, 
104 0611 1 ant$format_flags, 

105 0612 1 anl$format_hex, 
106 06135 1 anl$format_line, 

107 0614 1 anl$format_skip, 

108 0615 1 anl$idx_check, > 

109 0616 1 anl$open_next_rms_file, 

110 0617 1 anl$prepare_report_file, 
111 0618 1 anl$unwind Randler, 

112 0619 1 cli$get_value: addressing_mode(general), 
113 0620 1 Lib$Sestablish: addressing _mode(general), 
114 0621 1 str$trim: addressing_modetgeneral); 
115 0622 1 

116 0623 1 external 

117 0624 1 anl$gb_mode: byte 

118 0625 1 anl$gl-fat: ref blockl, byte); 
119 0626 1 

120 0627 1! ; 

121 0628 1 ! Own Variables: 

122 0629 1! 
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RMSCHECKA RMSCHECKA = Check a File Structure 15-Sep-1984 $3:23:1] pod Bliss-32 V4.0-74 Page 
v04=000 ANLSCHECK_MODE = Check an RMS File Structure 14-Sep-1984 11:52:59 ANALYZ.SRC JRMSCHECKA.B32; 1 (3) 
ise 6 9 } Rsbttl *ANLSCHECK_MODE = Check an RMS File Structure’ 
126 06 : 1 i Functional Description: 
127 06 ' | This is the main routine for checking the structure of an RMS file 
128 0634 1! and producing a report of the results. It is responsible for | 
\e $632 : cycling through the input files and calling the appropriate routine. 
134 be39 1: This routine is also called for /STATISTICS mode. This mode is. 
132 0638 1! a superset of /CHECK mode, doing all the same checking in addition 
le? sted : } to printing some statistics. 
135 0641 . Formal Parameters: 
non 
137 064 .. 
138 0644 1! Implicit Inputs: 
ee ta en 
141 0647 1! Implicit Outputs: 
a bees : global data 
og 8930 : Returned Value: 
‘ non 
146 po28 1! 
re ott : Side Effects: 
149 0655 1 i-- 
150 0656 1 
151 0657 1 ; 
126 +e 3 global routine anl$check_mode: novalue = begin 
154 0660 2 local 
sar pees § status: long; 
157 0663 2 ‘ ; 
iF peeve § ! We go into a loop, once through for each input file. 
160 0666 3 loop ( 
161 0667 3 Local : f 
166 pee ; local_described_buffer(resultant_file_spec,nam$c_maxrss) ; 
+44 hy ; status = anl$open_next_rms_file(resultant_file_spec); 
Hb $67 3 exitif (not .status); 
168 0674 3 ! Prepare the file to receive the report. We use a different 
199 beoe ; ! page heading for each of the modes. 
171 0677 & anl$prepare_report_file((selectoneu .anl$gb_mode of set 
172 0678 4 Canl$k_check]:— anlrms$_checkhdg; 
173 0679 4 anl$k_statistics): anirms$_stathdg; 
fA pose 4 .ont Ok suamarys: anlrms$_summaryhdg; 
es 
176 pos : resultant_file_spec); 
178 0684 : !' Print the file header information and RMS attribute information in 
4 3039 ; ! the report. 
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RMSCHECKA RMSCHECKA = Check a File Structure 15-Sep-1984 t 759:11 AX-11 Bliss-32 V4.0-74 Page 
v04-000 ANLSCHECK_MODE = Check an RMS File Structure 14-Sep O-1984 52:59 ANALYZ0S Rei RMSCHECKA.B52;1 
181 0687 anl$format_file_header(); 
13 0688 
18 0689 anl$format_skip(0); 
184 0690 anl$format_skip(0); 
19? 524 anl$format_file _attributes(); 
187 069 ! Now call the appropriate checking routine. 
188 0694 3 
189 0695 3 Previs eet <an\Sei. fatCfat$v_fileorg] of set 
190 0696 3 fat$c_sequential) anl$Seq_check ( 
191 0697 3 Cfat$c_relative): anl$rel— “check(); 
138 0698 ; {fat$c_indexedJ: anl$idx_check(); 
19 0699 tes; 
194 0700 3 q 
195 0701 3 ' Tell the user how many structure errors were discovered. 
139 0702 3 
19 0703 3 anl$format_skip(0); 
198 0704 3 anl$format_skip(0); 
199 0705 3 anl$error_Ccount(); 
200 0706 3 : 
201 0707 3 ! Finally, include the command Line at the end of the report. 
202 0708 3 
203 0709 4 begin 
204 0710 4 local . : 
205 0711 4 local_described_buf fer (command_Line,80); 
206 0712 4 
207 0713 4 cli$get_value(describe('SLINE') ,command_Lline); 
208 0714 4 str$trim(command_line,command_ Line, command_ Line); 
209 0715 4 anl$format_skip(0); 
210 0716 4 anl$format_skip(0); 
211 0717 & anl$format_line(0, b,anirms$ _anything,command_Line); 
212 0718 3 end; 
213 0719 3 
214 0720 2); 
215 0721 2 
216 0722 2 return; 
217 0723 2 
218 0724 1 end; 
~TITLE RMSCHECKA RMSCHECKA = Check a File Structure 
-IDENT \v04-000\ 
-PSECT S$PLITS,NOWRT ,NOEXE,2 
- 45 4— 49 4C 24 Q0000 P.AAB: .ASCII \SLINE\ : 
. 00005 -BLKB 3 
00000005 00008 P.AAA: .LONG 5 
00000000" 0000C ADDRESS P.AAB 3 


-EXTRN ANLRMSS_OK._ANLRMSS_ALLOC 
TEXTRN ANLRMS$~ANYTHIN 

“EXTRN ANLRMSS~ “BACKUP. ANLRMS$_BKT 
“EXTRN ANLRMSS$~BKTAREA 


“EXTRN ANLRMS$~BKTFREE 
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RMSCHECKA RMSCHECKA = Chec Rey Structure 18-Sep-1984 $3: 2:59:11 AX-11 Bliss-32 V4.0 rhs Page 6 
v04-000 ANLSCHECK_MODE = Khe an RMS File Structure 14-Sep-1984 11:52:59 ANALYZ.SRC RMSCHECKA.B 2;1 (3) 
-EXTRN ANLRMSS$ Be ANLRMS$_BKTLEVEL 
-EXTRN ANLRMS$~BKTNEXT 
-EXTRN ANLRMS$~BKTPTRSIZE 
SEXTRN ANLRMS$~BKTRECID 
-EXTRN ANLRMS$_BKTRECID3S 
TEXTRN ANLRMS$~BKTSAMPLE 
-EXTRN ANLRMS$~BKTVBNFREE 
«-EXTRN ANLRMS$_BUCKETSIZE 
XTRN ANLRMS$_CELL, ANLRMS$_CELLDATA 
XTRN ANLRMS$~CELLFLAGS 
XTRN ANLRMS$_CH DG 


ATAREC 
XTRN ANLRMS$~DATABKTVBN 
XTRN ANLRMS$_DUMPHEAD ING 
XTRN ANLRMS$_EOF, te ERRORCOUNT 


RROR 
XTRN ANLRMS$_ERRORS, ANLRMS$_EXPIRATION 
=FILEATIR 


E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

EXTRN ANLRM me FLAG, PANLRMSS. GLOBALBUF S 
EXTRN ANLRMS$"H HEXDATA 
EXTRN ANLRMS$_HEXHEADING1 
EXTRN ANLRMS$_ ir try tate 
EXTRN ANLRMS$_IDXAREA 
EXTRN ANLRMS$~IDXAREAALLOC 
ties reste a IDX epee M 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
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EAUSED 
XTRN ANLRM mes IDXKEY, ANLRMS$_IDXKEYAREAS 
XTRN ANLRMS$~IDXKEYBKTSZ 
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ANLRMS$_ geht ar} toed 
pens OLOG 

ARE C, ANLRMS$_IDXRECPTR 
parted 


e2zvevrs~e le 
Ree 


= IDX 
= 
ul 
* 
zl 
ll 
~ 
I 
ll 
an 


sue 
php Onunnnw 
— 


ANL 

ANC RMS" = f 
ANLRMSS$— “WAXREESIZE 
ANLRMS$_NOBACKUP 
ANLRMS$_NOEXPIRATION 
ANLRMS$_NOSPANF ILLER 
ANLRMS$_PERFORM 

ANLRMSS$_ PROLOGFLAGS 
ANLRMS$_PROLOGVER 

ANLRMS$_PROT, ANLRMS$_RECATTR 
ANLRMS$_ =RECEAT fe WARNS RECLAIMBKT 


PROLOG 
ANLRMSS$_ “RELIAB, ANLRMS$_REVISION 
ANLRMS$_STATHDG 
ANLRMS$_SUMMARYHDG 


ANLRSS BAD 

ANLRMS$_ “BADVBN, UANLAASS. DOWNHELP 
ANLRMS$_ ~ PON 

ANLRMSS~ EMP TYBK KT 

ANLRMS$_NODATA, ANLRMS$_NODOWN 

ANLRMS$_NONEXT, ANLRMS$_NORECLAIMED 

ANLRMS$_ mr tae _ NLARSS. NORRV 


ANLRMS$_STACKFULL 
ANLRMSS$~ 
N 


LENAME 
ANLRMS$_FDLORG, ANLRMS$_FDLOWNER 
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NLRMS$ a ett dS ee 


DATA FILL 
~FDLDATAKEYCOMPB 
DLDATARECCOMPB 

LDUPS 
DLINDEXAREA 
Tae 


“F 

$F 
ANLRMSS$_F 
S$_FDLINDEMFILL 


ANLRMS$_F DLNULL VALUE 
ANLRMS$_F DLPROLOG 
ANLRMS$"F DLSEGLENGTH 
ANLRMS$_FDLSEGPOS 
ANLRMS$_ FDLSEGTYPE 
ANLRMS$_ “petnece 


LANALKEY 
ANLRMS$_FDLDATAKEYCOMP 
ANLRMS$_F DLDATARECCOMP 
ANLRMS$_FDLDATARECS 
ANLRMS$_F DLDATASPACE 
ANLRMS$_FDLDEPTH 
ANLRMS$_FDLDUPSPER 


ANLRMS$"STATDATARECS 
ANLRMS$"STATDUPSPER 
5 TATDATALENMEAN 
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paged & BADAREA1ST2 


~EXTRN ANLRMSS_ BARE YDATADRT 
«EXTRN ANLRMS$_BADKEYDATAF IT 
-EXTRN ANLRMSS$_BADKEYDATATYPE 


INGBKT 
-EXTRN ANLRMS$_NOTOK, ANLRMS$_SPANERROR 
-EXTRN ANLRMSS_ TOOMANYRECS 

~EXTRN ANLRMSS$-UNWIND, ANLRMS$_VFCTOOSHORT 
-EXTRN ANLRMS$_CACH EFULL 

-EXTRN ANLRMSS— CACHEREL FALL 

-EXTRN ANLRMSS"FACILI 

~EXTRN ANC SBUCRET AML SCHECK _FLAGS 

-EXTRN ANLSERROR_COUNT 
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$FORMAT_ERROR 
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6 
TRN ANL SF ORKAT “HEX, ANLSFORMAT_LINE 
TRN ANLSFORMATSKIP 

TRN ANL$IDX CHEE ANL SOPEN. NEXT_RMS_FILE 
XTRN ANLSPREPARE_REPORT_FILE~ 


ANDL ofr 
»EXTRN CLISGET vACUE yo heserces 
"EXTRN STRSTRIM, ANL$GB 
~EXTRN ANLSGL. FAT 


-PSECT S$CODES,NOWRT,2 


001C 00000 ~ENTRY ANLSCHECK ao hy ° R2,R3,R4 
54 0000G CF 9€ 00002 MOVAB’ AN NLS ORAAT 4 
5E FEAO CE 9€ 00007 MOVAB mT FP 
58 AE FF 8F 9A 0000C 1$: MOVZBL #255, RESULTANT FILE_SPEC 
5C AE 60 AE 9E 00011 MOVAB RESULTANT_FILE_SPEC+8, - 
RESULTANT =F ILE SPEC +6 
58 AE 9F 00016 PUSHAB RESULTANT FILE SPEC 
0000G CF 01 FB 00019 CALLS #1, ANLSOPEN. NEXT_RMS_FILE 
53 29 DO OOOIE MOVL RO, STATUS 
01 53 €8 00021 BLBS STATUS, rH 
04 00024 RET 
58 AE 9F 00025 2$: PUSHAB RESULTANT_FILE_SPEC 
50 0000G CF 9A 00028 MOVZBL ANLSGB_MOBE, RO 
01 50 91 9002D CMPB RO, #1 
08 12 00030 BNEQ 3 
00000000G 8F dD 00032 PUSHL #ANLRMS$_CHECKHDG 
1D 11 00038 BRB 6$ 
04 50 91 OO03A 3$: CMPB RO, #4 
08 12 00030 BNEQ 4 
00000000G 8F DD 0003F PUSHL #ANLRMS$_STATHDG 
10 11 00045 BRB 6$ 
05 50 91 00047 4$: CMPB RO, #5 
05 13 O0O04A BEQL 
7E 01 CE 0004C MNEGL #1, =(SP) 
06 11 O004F BRB 6s 
00000000G 8F DD 00051 5$: PUSHL #ANLRMS$_SUMMARYHDG 
0000G CF 02 FB 00057 6$: CALLS #2, ANLSPREPARE_REPORT_FILE 
0000G CF 00 FB 0005C CALLS #0, ANLSFORMAT_FILE_HEADER 
7E D4 60061 CLRL SP) 
64 01 FB 00063 CALLS ANLS$FORMAT_SKIP 
7E D4 00066 CLRL = “(éP) 
64 01 FB 00068 CALLS ANLSFORMAT SKIP 
0000G CF 00 FB Bones CALLS 50° ANLS$FORMAT_FILE_ATTRIBUTES 
52 0000G DF 04 04 €F 00070 EXT2V #4, #4, @ANLSGC_FAT> R2 
07 12 00077 BNEQ 7$ 
0000v CF 00 FB 00079 CALLS #0, ANLS$SEQ_CHECK 
16 11 OOO7E BRB 9$ 
01 5 D1 00080 7$: CMPL R2, #1 
07 12 0008 BNEQ 8$ 
0000v CF 00 FB 0008 CALLS #0, ANLSREL_CHECK 
OA 11 Book. BRB 9$ 
02 52 01.0008 8$: CMPL R2, #2 
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~v04-000 ANLSCHECK_MODE = Check an RMS File Structure 12-88 1 ope 11:52:59 ANALYZ.SRC RMSCHECKA.B 2:1 
05 12 0008F BNEQ oF 
0000G CF 90 FB 90091 CALLS #0, ANLSIDX_ CHECK 
E D4 00096 9$: CLRL 
64 gr FB 00098 CALLS ANL$FORMAT_SKIP 
E D4 06098 CLRL P) 
64 01 FB 0009D CALLS "i. ANLSFORMAT_SKIP 
0000G CF 00 FB OO0A0 CALLS #0. gy i 
6E 50 BF 9A OO0AS MOV7BL #80, D CINE 
04 AE 08 AE 9E 000A9 MOVAB COMMAND mUINES COMMAND _LINE+4 
SE DD OOOAE PUSHL , 
0000" CF 9F 90080 PUSHAB 
000000006 00 ge FB 8 0B4 CALLS Woe ACLISGET. VALUE 
E DD 00088 PUSHL SP 
04 AE 9F 000BD PUSHAB COMMAND_LINE 
08 ag 9F 000C0 PUSHAB COMMAND-LINE 
000000006 00 03 FB 000C3 CALLS #3, STRSTRIM 
7E D4 OOOCA CLRL =(SP) 
64 01 FB OOOCC CALLS #1, ANLSFORMAT_SKIP 
7E D4 OOOCF CLRL -(SP 
64 01 FB 000D1 CALLS #1, ANLSFORMAT_SKIP 
SE DD 000D4 PUSHL Pp 
000000006 8F DD 00006 PUSHL #ANLRMS$_ANYTHING 
7E 7C 0000C CLRO -(SP) 
00006 CF 04 FB OOODE CALLS #4, ANLSFORMAT_LINE 
FF26 3% OOOE3 BRW 1$ 
04 000E6 RET 


; Routine Size: 231 bytes, Routine Base: $CODE$ + 0000 
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ar a 


Rsbttl "ANLSSEQ_CHECK = Sequential File Check’ 
Functional Description: : 
his routine is ti wae: for performing the structure check 
on an RMS sequential file. 
Formal Parameters: 
none 
Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
non 


' Side Effects: 


global routine anl$seq_check: novalue = begin 
local 
b: bsd; 
! Establish the condition handler for drastic structure errors. 
LibSestablish(anlSunwind_handler); 


! spending time to read through the entire file. 


if .anl$gb_mode eqlu anl$k_summary then 
return; 


! If the file is null, just forget it. 


NNN 


if .anl$gl_fatCfat$l_efblk] eqlu 1 and .anl$gi_fatCfatSw_ffbyte] eqlu 0 then 
return; 


no 


! We are going to scan the blocks of the file, treating the file as if 
! it contains single block buckets. Get the first block. 


init_bsd(b); 
blbsd$w_size] = 1; 
bl{bsd$l_vbn] = 1; 
anl$bucket(b,0); 


! Now we sit in a loop, checking each record. 


NOUS WN CO OOO UE WN O OD NAUMAN SO OONAOUSWNH—OOOn~ 


SN NNN 


o 


while anl$seq_data_record(b,false) do; 


C 
Q 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
; 
2 
§ 
§ ! If we are running in /SUMMARY mode, then the user is not interested in 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
: 
ani $bucket(b,-1); 
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5E 

000000006 00 
05 

50 

01 

18 00 6E 
Q2 AE 

04 AE 

0000G CF 
0000v CF 

F3 

7E 

0000G CF 


; Routine Size: 88 bytes, 


Routine Base: 


RMSCHECKA RMSCHECKA = Check a File Structure 
—v04-000 ANLSSEQ_CHECK = Sequential File Check 
, arr ores 

; 278 078 return; 

; e279 0784 

; 280 0785 1 end; 


003¢ 
18 C2 
Q0000G CF 9F 
01 FB 
0000G CF 91 
40 13 
0000G CF DO 
08 AO 01 
05 12 
Oc AO B5 
30 13 
00 2c 

6E 
01 B0 
01 00 
7E 04 
04 AE OF 
02 FB 
7E D4 
046 AE OF 
02 FB 
50 €8 
01 CE 
04 AE OF 
02 FB 
04 
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Ra Suu iN HANDLER 

A LIBSESTABLISH 
NLSGB_MODE, #5 

ANLS$GL_FAT, RO 

(RO), #1 

12(RO) 


#0, (SP), #0, #24, B 


B 
#2, ANLSBUCKET 
= (SP) 


#2, ANL$SEQ_DATA_RECORD 
RO, 2$ 
#1, =(SP) 


B 
#2, ANLSBUCKET 
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= Check a File Structure 18-56 1984 23:59:11 AX-11 Bliss ¢ V4.0-7 Page 


CHECKA.B32;1 
Rsbttl “ANLSSEQ_DATA_RECORD = Display & Check a Sequential Data Record’ 


i Functional Description: 

This routine is responsible for analyzing a data record from a 
mee g + See file. It can display the record and also check its 
validity. 


Formal Parameters: gk i 
A BSD describing the record. We update it to 
describe the next record. 
report A boolean, true if we are to format the record. 
indent_level The level of indentation of the report. 


Implicit Inputs: 
giobal data 


Implicit Outputs: 
global data 


Returned Value: . : : 
True if there is a record following this one; false otherwise. 


Side Effects: 


global routine anl$seq_data_record(rec_bsd,report,indent_level) = begin 


bind 
b = .rec_bsd: bsd; 
local 
sp: ref block(, byte], 
filler: byte, 
data_length: long, length: long, 
d: bsd 


next_vbn: long, next_offset: long; 


! Set up a pointer to the record. 

sp = .b(bsd$l_bufptr]) + .b(bsd$l_offset]; 

! Now we will set up three items. FILLER will tell us whether this is a 

! block filler for a no-span file. DATA_LENGTH will tell us the Length 

of | actual data bytes. LENGTH will give us the overall length of the 
! record. 


electoneu soni Sol_farltorty rtvped of set 


fat$c_undef ined iller = false; 
Length = data_length = 512;); 
Cfat$c_fixed): (fil'er = .anl$gl_fatCfat$v_nospan] and 


-anl$gl_fatCfat$w_maxrec) gtru 512-.bl(bsd$l_offset); 
data_length = oontSal fact tatSy maxrecd: 
length = .data_length”+ .data_léngth mod 2;); 


H 2 
| RMSCHECKA RMSCHECKA = Check a File Structure 15-Sep-1984 43:39:]) AX-11 Bliss-32 een at Page 15 
v04-000 ANLSSEQ_DATA_RECORD = Display & Check a Sequent 14-Sep-1984 11:52:59 ANALYZ.SRCIRMSCHECKA.B352;1 (5) 
is 3D 0843 : 
13 340 0844 Cfat$c_variable, : 
13) (341 0845 fat$c_vfcl: (filler = .anl$gl_fatlfat$v_nospan] and 
13 208 0846 -$pl0,0,16,0) “a8 ax'ffft'; 
is #4 0847 data_length = .splo 6,16,0); 
ls ength = 2 + .data_length + .data_length mod 2;); 
(3 344 0848 length = 2 + .data_length + .data_length mod 2;) 
'3; «345 0849 Cfat$c_stream 
E 346 0850 é fat$c_streamlf 
(3 (347 0851 fat$c“streamcrd: (filler = false; 
> 348 thy 2 length = data_length = anl$stream_record_length(b);); 
> 349 085 é tes; 
; $29 0854 
; 351 0855 2 ! Now we must check to see if a record in a no-span file spills across 
; 326 pees 2! a block. If so, we have a drastic structure error. 
; 3 0858 ‘ if .anl$gl_fatCfat$v_nospan] and not .filler and .b(bsd$l_offset]+.length gtru 512 then ( 
3 32? 0859 3 anl$format_error(anirms$_spanerror, .b(bsd$l_vbnJ); 
3 328 Reet ; signal (anTrms$_unwind); 


[—- 
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“RMSCHECKA RMSCHECKA = Check a File Structure b.s8 1984 MiHie AX-11 Bliss-32 V4.0 o 
v04-000 ANLSSEQ_DATA “RECORD - Display & Check a Sequent 12: a 984 11:52:59 ANALYZ.SRC RMSCHECKA.B 2;1 
; iB gee ! Now we can format the record if requested. 
is 3561 0864 if .report then 
is 36 0865 ; ; 
is 36 0866 if .filler then 

> 364 0867 : 

3 $02 + ¥¢: ! If it's a nospan filler, just format a heading. 

; 367 0870 anl$format_line(0,. indent sons’ totosasi 3 nospanfiller, 

> 368 0871 -b(bsd$l_vVbnJ, .bCbsd$l_offset]) 

; 369 pare 

s 370 087 else ( 

oe 0874 

3 32 0875 ! If it's a real record, we need to or ine the entire thing. 

; $7 pore 3 : into memory. Build a BSD describing the record and get it. 
3; SVD 0878 i init_bsd(d); 

: 376 0879 3 d(bsd$w_size] =  bCbsdSt offset] + .length + 511) / 512; 

s 3577 0880 3 > d$l=vbnJ =_.bL mee vbn); 

; 378 0881 3 d(bsd$l— offset = .b(bsd$l_offset): 

; 379 0882 3 anl$bucket(d,0 

: 380 0883 3 : ; 

; 381 0884 3 ! Now we can format a heading and the data in hex. 

> 6382 0885 3 

3 pes 0886 4 begin 

> 384 0887 4 local : 

; 385 0888 4 data_dsc: descriptor; 

; 386 0889 4 

; 387 0890 4 anl$format_line(4,,indent_level,anirms$_datarec, 

; 388 0891 4 Cbsd$l_vbn],.bCbsd$l_offset]); 

; 389 0892 4 anl$format _skip(0); 

: 390 0893 4 build _descriptor(data dsc, restated -dCbsd$l_bufptrj+.d(bsd$l_offset]); 
3; «391 0894 4 anl$format_hex(.indent_level+2,data_dsc); 

: 392 0895 3 end; 

; 393 0896 3 

: 394 0897 3 anl$bucket(d,-1); 

: 395 0898 2 ); 


- sss ss sss sess 
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_V04-0 0 ANLSSEQ_DATA_RECORD = Display & Check a Sequent 14-Sep-1984 11:52:59 ANALYZ.SRCIJRMSCHECKA.B52;1 
| Hd 8 ! Now check the length of a VFC record to make sure the header can fit. 
99 0 if .anl$gl_fatlfat$v_rtype] eqlu fat$c_vfc and ,data_length lssu .anl$gi_fatCfat$b_vfcsize] then 
| ret 0 Eatétornat efrortentrust.victoSshort, blosest. vend). ° t 
(3 40 : Now we need to calculate the VBN and offset of the potential next record 
40 ! in the file. 

404 

405 if .filler then ( 


next_vbn = .b€bsd$l_vbn] + 1; 
next_offset = 0; 

) else ( 

next_vbn = .b{bsd$l_vbn] + ag 9 er Taee se’ Lengenee ates 


next_offset = (.b(bSd$l_offsetJ+.length) mod 512; 


At this point, we would Like to ensure that the record didn't get past 
the end of file. However, some VMS files violate the end of file 


! Therefore we can't make the check, or we'll for sure generate a ton 


! 

' 

convention as defined by ODS II (e.g., spepes Linked with debug). 

of SPRs. Instead, we will simply assume that there isn't another record 


! if we are at or past the end of file. 


if (.next_vbn eqlu .anl$gl_fatCfat$l_efblk] and .next_offset gequ .ani$gl_fatlfat$w_ffbyte]) or 
mont ven airy -anl$gl_fatCfat$l_efblkJ) then 
return false; 


! Well, it appears we do indeed have another record. Update the caller's BSD 
! to describe it. 


bCbsd$l_vbn] next_vbn; 


n; 
bCbsd$l “of fse } = .next_offset; 


t 
anl$bucket(b,0); 


C 
Q 
2 
2 
e! 
e: 
2 
2 
2 
2 
2 
; 
2 
2 
2 
2 
2 
2 
2 
2 
§ return true; 
1 
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end; 


| 
OFFC 00000 .ENTRY ANLS 
| 


SEQ_DATA_RECORD, Save R2,R3,R4,R5,R6,- 
R7,R8,R9,R10,R11 
5B 00006 CF 9 00002 MOV ANLSGL_FAT, R11 
5E 20 C 90007 SUBL 32, SP 
57 04 AC DO OOOOA MOVL REC_BSD, R7 
SA 08 A? 9E O000E MOV 8(R7), R10 
53 0c A7 6A C1 00012 ADDL (R10), 12(R7), SP 
50 68 D0 90017 MOVL ANLS$GL_FAT, RO 
OF 60 93 OOO1A BITB (RO), #15 
O£ 12 0001D BNEQ 1$ 
59 94 0001 CLRB au ER 
56 0200 8F 3¢ 0021 MOVZ2WL #512, DATA_LENGTH 
58 0200 8F 3¢ 00 6 MOVZ2WEL #512. LENGTH 
7 11 00028 BRB 5$ 
| 01 60 04 00 ED 0002D 1$ CMPZV #0, #4, (RO), #1 


<D 
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RMSCHECKA RMSCHECKA = Check a File Struc 15-Sep-1984 23:59:11 AX-11 BL i $$-32 V 
V04-000 ANLSSEQ_DATA RECORD - Display ie Check a Sequent 1228 08= 1 382 #7523559 ANALYZ.S Res RMSCH oy ys 2;1 
ee 032 BNEQ 3$ 
51 gf 00000200 tf tg 88 4 SUBL3 #512, (R10), 
1 1 CE 0003C MNEGL R1, R1 
52 D4 0003F CLAL Re 
51 10 Ad 10 00 ED 00041 CMPZ2vV #0, #16, 16(RO), R1 
02 1B 00047 BLEQU 2$ 
52 D6 00049 INCL ee 
54 01 ad 01 g EF 0004B 2$: EXT2V # » 10RO), RG 
54 4 D2 00051 MCOM R4, 4 
59 52 54 8B 00054 BICB R4, R2, FILLER 
56 10 AO 3¢ 00058 MOVZWL 16(RO), DATA_LENGTH 
7E 00 56 01 7A 0005C¢ EMUL #1, DATA_LEN NSTH, #0, =(SP) 
50 50 8E 02 7B 00061 EDIV #2, (SP)F RO 
58 50 56 C1 00066 ADDL3 DATA_. PENGTH RO, LENGTH 
57 11 0006A RB a 
02 60 04 00 ED 0006C 3$: CMPZvV #0, #4, (RO), #2 
33 1F 00071 BLSSU 6 
03 60 04 00 €D 00073 cMPZ7V0 #0, #4, (ROD, #3 
2C 1A 00078 BGTRU 6$ 
51 D4 O0007A CLRL R1 
FFFF =F 63 B1 0007C CMPW (SP), #65535 
02 12 00081 BNEQ 4$ 
51 D6 00083 INCL R1 
52 01 Ad 01 03 EF 00085 4$: EXT2V #3, #1, 1(RO), R2 
52 52 D2 00088 MCOML R2- 
59 51 52 8B OO008E 1CB3 so R2, R1, FILL 
56 63 3C 00092 MOVZWL (SP), DATA_LEN 
7E 00 56 01 7A 00095 EMUL #1, DATA_LENGTH, "10. -(SP) 
50 50 BE 02 7B O009A EDIV #2, (SP)F, 
58 02 A046 YE 0009F MOVAB 2 (RO)CDATA_LENGTHJ, LENGTH 
1D 11 OOOA4 5$: BRB 7 
04 60 04 00 ED OO0A6 6$: CMPZV #0, #4, (RO), # 
16 1F OOOAB BLSSU. 7 
06 60 04 00 ED OOOAD CMPZ7V #0, #4, (RO), #6 
OF 1A 000B2 BGTRU i 
59 94 00084 CLRB FILLER 
57 DD 00086 PUSHL R7 
0000v CF 01 FB 00088 CALLS Hl. A ANL$STREAM RECORD_LENGTH 
56 50 DO 000BD MOVL A_LEN 
58 56 DO 000C0 MOVL DATAS CENGTAN LENGTH 
50 6B DO 000C3 7$: MOVL ANLSGt FAT, RO 
28 01 AO 03 €1 000C6 BBC #3, 1(RO), 8$ 
28 59 £8 000CB BLBS FILLER, 8 
1 6A 28 C1 000C ADDL3 LENGTH (R10), R1 
00900200 «BF 51 D1 000D CMPL SRT, «#542 
1B 1B 00009 BLEQU 
04 A? DD 000DB PUSHL 4(R7) 
00000000G 8F DD OO0DE PUSHL #ANLRMS$ SPANERROR 
0000G CF 2 FB OO0E4 CALLS #2, ANLSFORMAT ERROR 
00000000G 8F DD OQOOE9 PUSHL SARLANSS UNWIND 
000000006 00 1 FB OOEF CALLS #1, LIBSSIGNAL 
1 08 AC €E9 OOOF6 8$: BLBC REPORT, 
59 €9 OOOFA BLBC FILLER, 108 
6A DD OOOFD PUSHL (R10) 
04 A? DD OOOFF PUSHL itp ) 
00000000G 8F DD 0108 PUSHL #ANLRMSS NOSPANFILLER 
0c AC DD 0010 PUSHL  INDENT_LEVE 
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-V04=000 ANL$SEQ_DATA_RECORD = Display & Check a Sequent 14-Sep-1984 11:52:59 | CANALYZ.SRCJRMSCHECKA.B32; 1 (7) 
43 D4 0108 CLRL = = (SP) ; 
0000G CF 0 FB 00100 CALLS #5 ANLSFORMAT_LINE s 
6C 11 00112 9$: BRB 11§ : 
18 00 6E me 00 2¢ 00114 10$ MOVCS #0, (SP), #0, #24, D + 0878 
51 6A a] C1 00118 ADDL3 LENGTH (R10), R1 : 0879 
51 O1FF 61 9 O11F MOVA 11(R15, R1 : 
| 50 51 00000200 8F C? 00124 DIVL3 #512, Ri, RO : 
OA AE 50 BO 0012¢ MOVW RO, D+2 F 
OC AE 04 A? DO 00130 MOVL  4(R7), D+4 + 0880 
10 AE 6A DO 00135 MOVL (R10), D+8 + 0881 
7E D4 01 9 CLRL = = (SP) + 0882 
OC AE 9F 00138 PUSHAB D : 
00006 CF 02 FB 001 E CALLS #2, ANLS$BUCKET : 
6A dD 0014 PUSHL (R10) + 0891 
04 A? DD 00145 PUSHL  4(R7) : 
000000006 8F DD 00148 PUSHL §#ANLRMS$_DATAREC + 0890 
OC AC DD OO14E PUSHL  INDENT_LEVEL $ 
04 DD 00151 PUSHL #4 : 
00006 CF 05 FB 00153 CALLS #5, ANLSFORMAT_LINE : 
7E 04 00158 CLRL. = (§P) + 0892 
00006 CF gi FB OO15A CALLS #1, ANLSFORMAT_SKIP ; 
6E 8 DO 0015F MOVL LENGTH, DATA_DSC ; 0893 
04 AE 16 AE 10 AE C1 00162 ADDL3 +8, D412, DATA_DSC+4 : 
5E DD 00169 PUSHL SP + 0894 
7E Oc Ac 02 C1 00168 ADDL3 #2, INDENT_LEVEL, -(SP) : 
00006 CF 02 FB 00170 CALLS #2. ANLSFORMAT_HEX : 
7E 01 cE 00175 MNEGL #1. -(SP) + 0897 
Oc AE 9F 00178 PUSHAB D ; 
00006 CF 02 FB 0017B CALLS #2, ANLS$BUCKET F 
50 6B DO 00180 11$:  MOVL ANLSGL_FAT, R + 0901 
03 60 04 00 ED 00183 CMPZV #0, #47 (RO), #3 : 
16 12 00188 BNEQ ; 
56 OF Ad 08 00 ED 0018A CMPZ2V #0, #8, 15(RO), DATA_LENGTH : 
O€ 1B 00190 BLEQU 12$ : 
04 A? DD 00192 PUSHL  4(R7) > 0902 
000000006 8F DD 00195 PUSHL #ANLRMS$_VFCTOOSHORT : 
00006 CF 02 FB 0019B CALLS #2, ANLSFORMAT_ERROR F 
0c 59 €9 001A0 12$:  BLBC FILLER, 13$ + 0907 
3 04 A? SE 001A3 MOV 4(R7), R2 : 0908 
54 6 01 C1 001A7 ADDL3 #1, (R2), NEXT_VBN : 
53 D4 OO1AB CLRL NEXT_OFFSE + 0909 
22 11 OO1AD BRB 14$ : 0907 
52 04 A? 9E OOIAF 138: WOVAB 4(R7), R2 + 0911 
50 6A 58 Ci 001B3 ADDL LENGTH, (R10), RO : 
51 50 00000200 BF C7 00187 DIVLS #512, RO, RI ; 
54 51 62 C1 001BF ADDL3 (R2), R1. NEXT_VBN ; 
| 7E 00 50 01 7A doics EMUL #1, RO, #0, -(SP) : 0912 
| 53 53 BE 00000200 8F 7B O0IC EDIV #542, (SP)+, NEXT_OFFSET, NEXT_OFFSET ; 
| 50 68 DO 00101 14$:  MOVL  ANLSGL_FAT, RO + 0922 
08 A0 54 D1 001D4 CMPL NEXT _VBN, 8 (RO) : 
08 12 00108 BNEG  15$ ; 
53 0c ad 10 0 FD 001DA CMPZ2V #0, #16, 12(RO), NEXT_OFFSET ; 
19 1B OO1E0 BLEQU : 
08 a0 54 D1 OO1E2 15$: CMPL  §=NEXT_VBN, 8(RO) : 0923 
13 1A OO1E6 BGTRU ; 
62 54 pO 00168 OVL  NEXT_VBN, (R2) + 0929 
| 
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vos O56 ANL EG" _DATA_RECORD = Hee bth Check a Sequent 14 =tep- 1382 7; 35 4 ANALYZ.SRCJRMSCHECKA. a82. :1 . (3 
6A 53 DO 001EB MOVL NEXT_OFFSET, (R10) : 0930 
3 D4 OieE CLRL -(SPY 3 0931 
57 DD OO1F PUSHL R7 : 
00006 CF 02 FB O01 CALLS #2, ANLSBUCKET : 
50 01 pO OO1F MOVL #1, RO 3 0933 
| 04 OO1FA RET : 
50 D4 OO1FB 16$: CLRL RO + 0935 
04 OO1FD RET 3 


; Routine Size: 510 bytes, Routine Base: S$CODES + 013F 


| 
; 
} 
| 
i 
| 
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Rsbttl *ANLSSTREAM_RECORD_LENGTH = Determine Length of Stream Record’ 


! Functional Description: 

This routine is responsible for determining the Length of a 
record in a sequential file with stream record format. Records 
end with one of three sets of delimiters. 


Formal Parameters: 
rec_bsd Address of BSD describing beginning of record. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
ength of the record. 


Side Effects: 


global routine anl$stream_record_length(rec_bsd) = begin 


bind 
b = .rec_bsd: bsd; 


bind 
delimiter_table = ch$transtable( 
rep 10 of (false), ; 
true, ' Line feed 
true, ' vertical tab 
true, ' form feed 
true ! carriage return 
rep 342 of (false) 
local 
r: sd, 
rp: ref block(,bytel, 
found: byte; 
builtin 


scanc; 


: We have to scan the bytes in this block and succeeding ones until we 
be fet fatter. Copy the caller's BSD because we don't want to 
! modify it. 


init_bsd(r); 
copy_bucket(b,r); 


! We go through our scanning loop once for each potential delimiter we 
! encounter. 


2 
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49 0993 do ( 
49 0994 
494 0995 : Search the bytes in this block for any character which could 
t3e 444 ! possibly be a delimiter. 
497 0998 rp = scanc(Zref(512-.rlbsd$l_offset]),.rlbsd$i_ bufptrJ+.rlbsd$l_offset], 
498 0999 delimiter_table,uplit byte (%x'ff')J; 
499 1000 
500 8 if .rp eqla 0 then ( 
0 ! We didn't find any delimiter in this block. If this block 
0 ! contains the end-of-file, then we have a drastic structure 
! error. 
0 if .rlbsd$l_vbn] eqlu .anl$gl_fatCfat$l_efbik] then ( 
0 anl\$format_error(anlris$_badstreameof,.b{bsd$l_vbnJ); 
9 signal (anUrms$_unwind); 
1 1 ; 
1 1 : We need to search the next block. Update our BSD and 
1 ; ! read it in. 
1 increment (r{bsd$l_vbn)); 
1 rCbsd$l_offset) = 0; 
anl$bucket(r,0); 
) else ( 


: We found a potential delimiter. To determine if it really 
: 1S one, we have to split up on record format. Set flag 
i FOUND if it really is. 


found = (selectoneu OGL Spt, Fath tardy rtype. of set 


fat$c_stream): ch$rchar(.rp) nequ creturn; 
Cfat$c_streamlf]: ch$rchar(.rp) eqlu Linefeed; 
Cfachc_streences: ch$rchar(.rp) eqlu creturn; 
tes); 


: Update the offset in the BSD to point at the character 
: following the one we found. Then continue searching if 
! it wasn't a real delimiter. 


rCbsd$l_offset) = .rp - .rlbsd$l_bufptr] + 1; 


) until . found; 
anl$bucket(r,-1); 


! We found a real delimiter. 8SD B tells us where we started searching, 
! and R tells us where we finished. Calculate the length of the record. 


return (.rCbsd$l_vbnJ)*512+.rCosd$l_offset]) - (.b{bsd$l_vbn)*512+.blbsd$l_offset]); 
j 


end; 
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RMSCHECKA RMSCHECKA = Check a File Structure 1$ese -1984 23:59:11 Ax-11 “> ss-32 V Pa 3 RP 
v04=000 ANLS$STREAM_RECORD_LENGTH = Determine Length of 14-Sep-19 4 $Fi83: 4) ANALYZ.S atin mS CHE Pe Ee :1 = B) ve 
-PSECT S$PLITS,NOWRT,NOEXE,2 
00# 00010 P.AAC: BYTE 0£10) : 
01 01 01 O01 OODIA HTE Ba Vata : 
00# OOO1E “BYTE 0f 2423 ; 
FF 00110 P.AAD: .BYTE 1 : 
DELIMITER_TABLE= P.AAC 
.PSECT $CODE$,NOWRT,2 
O0FC 00000 - ENTRY ANLSSTREAM_RECORD LENGTH, Save R2,R3,R4,R5,-; 0960 
57 00006 CF 9€ 00002 MOVAB ANLSBUCKET, R7 : 
SE 18 C2 00007 SUBL2 24, § : | 
$6 04 AC DO O000A MOVL REC_BSD, R6 > 0963 
18 00 6E 00 2c 0000¢ MOVCS #0,~(SP), #0, #24, R + 0987 | 
6E 66 7D 00014 mova (R6), T + 0988 
08 AE 08 A6 00 00017 MOVL B(R6), T+8 : 
14 AE 14 A6 00 000IC MOVL 20(R6), T+20 : 
7E D4 90021 CLRL =(SP) : 
04 AE 9F 00023 PUSHAB T : 
67 02 FB 00026 CALLS #2 ANL SBUCKET : 
50 08 AE 00 00029 1$: MOVL R+8 : 0998 
50 FEOQO §=6—CO COE 000¢0 MOVAB “S15cR0), RO : | 
50 50 CE 00032 MNEG : 
52 OC AE 08 AE C1 00035 ADDL Reé,. ; 
0000" CF 0000" CF 62 50 2A 00038 SCANC 0, Ry ‘DELIMITER. TABLE, P.AAD : 0999 
02 12 00044 BNEQ : 
51 D4 00046 CLRL R1 : 
54 51 pO 90048 2s: MOVL Rt. RP : 0998 | 
37 12 00048 BNEQ 4$ : 1001 
50 00006 CF DO 0004D MOVL ANLSGL_FAT, RO : 1007 | 
08 a0 04 AE 01 00052 CMPL R+4, 8TRO) ; 
1B 12 00057 BNEQ 3$ : 
04 Ab DD 00059 PUSHL  4(R6) : 1008 
000000006 8F dD 0005¢ PUSHL #ANLRMS$_BADSTREAMEOF : 
00006 CF 02 FB 0006 CALLS #2, ANL$FORMAT ERROR : 
00000000G 8F DD 0006 PUSHL ona NS? UNWINB : 1009 
000000006 00 01 FB 0006D CALLS LIBSSIGNAL : 
06 AE D6 00074 3$: INCL HF > 1015 
08 AE 04 00077 CLRL Res + 1016 
7E D4 OOO7A CLRL -(SP) + 1017 
04 AE 9F 0007C PUSHAB R ; 
67 02 fe 0007F CALLS #2, ANLSBUCKET e 
41 11 00082 BRB : 1001 
50 0000G oF 04 00 EF 00084 4$: EXTZ2V #0, #4, @ANLSGL_FAT, RO > 1025 
04 50 D1 00088 CMPL RO, #4 + 1026 
09 12 0008 BNEQ 5$ : 
50 D4 99 CLRL RO : 
0D 64 91 092 CMPB (RP), #13 ; 
1 13 0009 BEQL 10$ ; 
D 11 00097 BRB 9$ : 
05 50 D1 00099 5$: CMPL RO, #5 : 


| 
} 
' 
| 
} 
1027 | 
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| 


RMSCHECKA RMSCHECKA = Check a File Structure 

v04-000 ANLSSTREAM_RECORD_L LEN GTH = Determine Length 
7 12 

8 ps 

OA 64 91 

of 11 

06 0 01 

05 13 

50 01 CE 

09 11 

50 D4 

OD 64 91 

oe 12 

50 D 

55 50 9 

50 54 OC AE C 
08 AE 01 AO 9E 
03 55 S 

ae. tae} 

7E 01 CE 

04 AE 9F 

67 02 FB 
51 04 AE 09 78 
51 08 AE CO 
50 04 A6 09 78 
50 08 A6 CO 

51 50 C2 
50 51 00 

04 


; Routine Size: 237 bytes, Routine Base: S$CODE$ + 033D 
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pepo leolelololeleoloeloeloleloleloelolelololololelololelolo) 


oa 
wr 


~“ 
wn 


— Oo 
OMe 
Arise oe 


" 
=i 
wn 


12$: 
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3 ° -(SP) 
ag° ANLSBUCKET 
+ 1 


- RI 
#9, 4(R6), RO 
RO 
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RMSCHECKA RMSCHECKA = Check a File Structure Bese “1984 23:59:11 AX-11 Bliss-32 V4.0-74 Page 25 
v04-000 ANLSREL_CHECK = Relative File Check 14-Sep-1984 #7533385 LANALYZ-SRCIRMSCHECKA.B 2;1 (53 
ees 1048 Rsbttl *"ANLSREL_CHECK = Relative File theck' 
229 ! Functional Description: ; 
51 ; This routine is responsible for performing a check of the structure 
e2¢ } of a relative file. 
554 ' Formal Parameters: 
555 ' non 
556 : on, 
220 ! Implicit Inputs: 
558 ; global data 
559 ; se 
560 ! Implicit Outputs: 
20) global data 
28 ! Returned Value: 
564 : 
565 wee 
566 ' Side Effects: 
567 : 
568 !e= 
569 
570 
37) global routine anl$rel_check: novalue = begin 
57 Local 


~“ 
> 


prases: Long, 
: bsd, 
pp: ref block(, byte]; 


! Establish the condition handler for drastic structure errors. 
LibSestablish(anl$unwind_handler); 

! First call a routine to check the checksum in the prolog block. 
anl$prolog_checksums(); 

! Read in the prolog block and check the fields relevent to relative files. 
init_bsd(b); 

blbsd$w_size) = 1; 

bCbsd$l_vbn] = 1; 

anl$bucket(b,0); 

pp = .bCbsd$(_bufptrd; 


anl$format_skip(0); 


AOE WR © ODO NOU EWN SO OONOA UNE WN 0 OD NAW EWN OC OONOUES WOO 


COO MOOM OO NNNN~N 
SSRESLESELESRAVALS SABA 


QD PVDPV PVD PV DVD LV SIV PVA SV SUSI ST STSISISISISIT 
DOCS OO OOO OOOO OWW WW WW 00 NIN NN NN SN NS PAA AAA A AA MMIII 


Be Oe Oe Oe Oe Be Be Be Be Oe Oe Oe Oe Oe Oe Be Oe OH Oe Se Oe BH He BH He OH Oe Oe Oe Oe Oe Oe we Oe webs Oe Oe Oe Oe Oe Oe Oe Oe Se ee ee es ws eee enwe Se Oe eres 
a a a a ee eee ee ee ee ee ee ee eee eee 
2 = - 2 BOO DOO OCOOCOCOCOCOCOCOSOO OOOO OOOO O OOOO OCOCOO OOOO OOOO SOOOCOOCOOCOOOOOoOO 
POPP IPIAIPIPINPOPDPYPDNIPIMIPYININYNINDNININININPYINININININININININIDS 2 9 OO Ot OO SS YS SS 


anl$format_skip(0); 
44 i anl$rel_prolog(b,true,0); 
99 9 ! If we are running in /SUMMARY mode, then the user is not interested in 
on ? ! spending the time to read through the entire file. 
602 g if .anl$gb_mode eqlu anl$k_summary then 
603 return; 
604 04 


<z 
oe 
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RMSCHECKA RMSCHECKA = Check a File Structure 15-$ sen~ 138% 3:59:11 AX-11 Bliss-32 V4.0-7 Page 36 
04-000 ANLSREL_CHECK = Relative File Check 14-Sep-1984 11:52:59 ANALYZ.SRCJRMSCHECKA. a 2:1 (9) 
; 605 1105 ! Now let's read in the first data byches and check all cells. 

: oR 1198 i There are no cells if the file isn’ t big enough for even one bucket. 

; 608 1108 f .anl$ ts fatCfat$l hype tt peg aotee fat(fatsb_ bktsize] then ( 

; 609 1109 Bsd$w_size] = .anl$gl_fat{fat$b_Bktsized; 

; 610 1110 Pt bsd$l_vbn) = -pplplg$w_ dvbn]; 

; 611 1111 anl$bucket(b,0); 

; 612 \i1¢ 

> 613 111 while anl$rel_cell(b,false) do; 

>; 614 1114 2); 

; 615 1115 2 

; 616 1116 § anl$bucket(b,-1); 

; 617 1117 

; 618 1118 2 return; 

; 619 1119 2 

; 620 1120 1 end; 


007¢ 00000 .ENTRY ANLSREL CHECK Save R2,R3,R4,R5,R6 : 1071 
t4 00006 CF 9E 00002 MOVAB ANLSBUCRET : 
5 18 C2 00007 SUBL2 #24, SP : 
0000G CF 9F OOOOA PUSHAB i Aa HANDLER > 1081 
00000000G 00 01 FB OOO0E CALLS #1, LIBSESTABLISH 3 
0000v CF 00 FB 00015 CALLS #0. ANL$PROLOG_CHECKSUMS + 1085 
18 00 6E 00 2c 00014 MOVCS #0, (SP), #0, . B : 1089 
02. AE 01 B0 00020 MOVW 3s #1, - B42 : 1090 
04 AE 01 D0 00024 MOVL #1. B44 + 1091 
7E D4 00028 CLRL =_ = (SP) : 1092 
04 AE 9F OO02A PUSHAB B ; 
66 02 FB 0002D CALLS #2, ANLSBUCKET ; 
52 OC AE dO 00030 MOVL +12, PP : 1093 
7E D4 00034 CLRL = (SPS : 1095 
00006 CF 01 FB 00036 CALLS #1, ANLSFORMAT_SKIP : 
7E D4 00038 CLRL 0s = (SP : 1096 
0000G CF 1 FB 00030 CALLS “i, aA 5 
7E 1 70 00042 mMOVO #1. = : 1097 
08 AE 9F 0004 PUSHAB ; 
O000v CF 03 FB 00048 CALLS #3, ANLSREL_PROLOG : 
05 00006 CF 91 0004D CMPB = ANLS$GB_MODE> #5 : 1102 
3a 13 00052 BEQL $ : 
50 00006 CF 06 00054 MOVL ANLSGL FAT, ar : 1108 
51 04 A 61 ¢3 00059 SUBL 3 4 (RO) : 
51 OE AO 08 00 €D 0005€ CMPZV Ay rt 14cR0), : 
1F 1A 00064 BGTRU $ : 
02. AE OE AO 9B 00066 MOVZBW 14 B+2 > 1109 
04 AE 68 A2 3¢ 0068 MOVZWL 104 TOs B+4 > 1110 
7E 04 000 CLRL Weep) 2 1111 
04 aE oF 00072 PUSHAB B ; 
66 02 FB 0007 CALLS #2, ANLSBUCKET : 
7E p4 078 1$: CLRL «= (SP) > 1113 
04 AE F OOO07A PUSHAB B ; 
0000v CF 0 FB 007D CALLS #2, ANLSREL_CELL ; 
F3 50 €8 00082 BLBS=s«aRO.. ‘18 ; 


<z 
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r 
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; Routine Size: 


RMSCHECKA = Check a File pyrue 
1 


ANLSREL_CHECK = Relative F 
7E 
66 


143 bytes, Routine Base: 


SCODES + 042A 


3 
t 18-52-1986 23:59: 
e Check 12x88} 88S 9752 
01 CE 00085 28 MNEGL 
oo Ae OF Sooga pNecks 
02 FB 0008B CALLS 
04 0008 3$: —RET 
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RMSCHECKA RMSCHECKA = Check a File Structure 15-Sep-1984 23:59:11 AX=11 Bliss-32 V4.0-74 
04-000 ANLSREL_PROLOG = Format and Check a Relative Fi 14-Sep-19 4 #7:33:45 ANALYZ.SRC RASCHECKA.BS2;1 Page 465 
; $ § 1} 1 ! Rsbttl *ANLSREL PROLOG = Format and Check a Relative File Prolog’ 
: 624 11 g 1 | Functional Description: 
> 625 1124 1! This routine is responsible for formatting and checking the prolog 
3 $¢8 1 5 of a relative file. This is fairly simple. 
: 628 1197 1 | Formal Parameters: 
; 629 1128 1! prolog.bsd A BSD describing the presey. 
; 630 1165 1: repor A boolean, true if we are to format a report. 
3 $3) 1; ° : indent_level The indentation level of the report. 
; 63 13 1! Implicit Inputs: 
3 oge 1135 ; global data 
; 636 1135 1! Implicit Outputs: 
3 $37 1136 ; global data 
: 639 1138 i Returned Value: 
> 641 1140 1: Ea 
3 oy) 1143 . Side Effects: 
: 644 1128 | ie 
> 645 1144 :~«O1 
; 646 1145 #1 
3 of4 1108 $ global routine anl$rel_prolog(prolog_bsd,report,indent_level): novalue = begin 
; 649 1148 2 bind 
3 $29 BS § p = .prolog_bsd: bsd; 
: 652 1151 2 own 
3 oe? 1138 § flags_def: vector(2,long]) initial< 
: 695 1134 é uplit byte (%ascic "PLGSV_NOEXTEND') 
: 657 1156 2 : 
; 658 1157 2 local 
3 o> 1138 § sp: ref block(, byte); 
Bo ORE sai sok owe oe pres 
; ! We can start right off and format the prolog if requested. Begi ith 
5 oe 1108 § ' a nice hoodicn,” , ’ = ater 
: 665 1164 2 sp = .plbsd$l_bufptr] + .plbsd$l_offset); 
; 666 1165 : if “report then ( : ' : ti 
3; 667 1166 anl$format_line(3,.indent_level,anirms$_relprolog); 
3 23 1160 anl$format—skip(0); 
; on 119) ! Format the flags. 
: 676 44 anl$format_flags(.indent_level+1,anirms$_prologflags,.sp(plg$b_flags],flags_def); 
; or 1178 5 ! Format the first data bucket VBN. 
: ore anee anl$format_lLine(0,.indent_level+1,anirms$_databktvbn,.splplg$w_dvbn]); 
: 678 1199 ! Format the maximum record number. 


| PCE RRA RMSCHECKA = Check a File Structure 15-sep-1984 $333 9:11 AxX-11 Bliss-32 Vv4.0-74 Page +4 
04-000 ANLSREL_PROLOG = Format and Check a Relative Fi 14-Sep-1984 2:59 ANALYZ.SRCJRMSCHECKA.B 2:1 (10) 

; 679 1178 ; 

; on AT 4 anl$format_line(0,.indent_level+1,anirms$_reimaxrec,.sp(plg$l_mrn]); 

: 682 1181 3 ! Format the end-of-file VBN. 

>; 683 1188 H ; ; 

; ohe YS anl$format_lLine(0,.indent_level+1,anirms$_releofvbn,.sp[plg$i_eof]); 

: one tee ; ! Format the prolog version number. 

; rt) a 4 ; anl$format_line(0,.indent_level+1,anirms$_prologver,.spl[plg$w_ver_no]); 


3 
RMSCHECKA RMSCHECKA = Check a File St -Sep- 
witness a e Structure 13 Sep-19 


4 23:59: 
ANLSREL PROLOG = Format and Check a Relative Fi 14-Sep-1984 fj 52: 


ett Bliss-32 res Page 30 
ANALYZ.SRC JRMSCHECKA.B52;1 (11) 


>; 691 1189 ! Now we can check the prolog. 

; 24 13h ! Make sure the flag bits are valid, 

: O88 1138 anl$check_flags(.plosd$l_vbn],.splplg$b_flags],flags_def); 

238 Bs ! If an extension error occurred, tell the user. 

; 698 1196 if .sp(plg$v_noextend] then 
13 699 1197 anl$format_error(anlrms$_extenderr); 
(3; ©6700 1198 
a 701 1199 return; 
i; 70 1900 
i; 70 1201 1 end; 


| | 
| .PSECT $PLITS$,NOWRT,NOEXE,2 
(4a GE 45 54 5B 45 GF GE SF 56 24 47 4C 50 OE 00111 P.AAE: .ASCII <14>\PLGSV_NOEXTEND\ : | 
-PSECT $OWNS,NOEXE ,2 | 
00000000 00000 FLAGS_DEF: 

~ LONG 0 
00000000" 00004 “ADDRESS P.AAE : 


-PSECT $CODES,NOWRT,2 


| 

| 

| 
5 

| 52 oc A 

7 

| 

| 


Be Oe Oe Oe Oe Oe Oe OF Oe Oe Be Be OHO Be Se BH Se Se Be He we Be BH He HSH Be we Oe Oe Oe Se Be Oe Oe Oe Be Be Se Oe Os Oe Oe Os Be Be Oe Se Oe OH Ss Be Be ee ee 


003c 00000 -ENTRY ANLSREL PROLOG, Save R2,R3,R4,R5 > 1146 
5 00006 CF 9€ 00002 MOVAB ANLSFORMAT_LINE, R5 ; 
3 04 AC 00 00007 MOVL. PR L06_ SD> : 1149 
3 08 a3 Ci 00008 ADDL3 8(R3),~12(R3), SP > 1164 
1 08 AC €E9 00011 BLBC ~—_- REPORT, : 1165 
000000006 8F DD 00015 PUSHL #ANLRMS$_RELPROLOG > 1166 
OC AC DD 0001B PUSHL  INDENT_LEVEL 3 
03 DD OOO1E PUSHL #3 ; 
65 03 FB 00020 CALLS #3, ANLSFORMAT_LINE ; 
7E D4 00023 CLRL 2 =( SP) : 1167 
0000G CF 01 FB 00025 CALLS #1, ANLSFORMAT_SKIP : 
0000" CF 9F O002A PUSHAB FLAGS_DEF : 1171 
7E 10 A2 9A 000 MOVZBL 16(SPJ, =(SP) ; 
000000006 BF DD 00 PUSHL M#ANLRMS$_PROLOGFLAGS ; 
54 oc Ac 1 C1 000 ADDL3 #1, INDENT_LEVEL, R4 : 
54 DD 00030 PUSHL R4 ; 
00006 CF 04 FB 0003F CALLS #4, ANLSFORMAT_FLAGS ; 
7E 68 A2 3C 00044 MOV2WL 104(SP), =(SP) : 1175 
000000006 8F DD 00048 PUSHL #ANLRMS$_DATABKTVBN ; | 
54 DD 0004 PUSHL RG : 
7E 04 0005 CLRL- = = (SP) ; 
| 65 04 FB 0005 CALLS #4, ANLSFORMAT_LINE ; | 
| 6C A2 dD 0005 PUSHL  108( : 1179 
| 000000006 8F DD 00058 PUSHL #ANLRMS$_RELMAXREC ; 
| 4 DD 0005€ PUSHL = R4 : 
E 04 00060 CLRL. = = (SP) ; 
| 65 04 FB 00062 CALLS #4, ANLSFORMAT_LINE ; 


RMSCHECKA RMSCHECKA = Check a File Structure 15-Sep-1984 23:59:11 AX-11 Bliss-32 v4.0- Page 31 
v04-000 ANLSREL_PROLOG = Format and Check a Relative Fi 14 5-sen-1984 #73 1:52:59 ANALYZ.SRC RAS cME CRA B82; 31 . (11) 
70 A2 DD 00065 PUSHL 112(SP) : 1183 
000000006 8F DD 00068 PUSHL #ANLRMS$_RELEOF VBN : 
4 00 0066 PUSHL : 
E 04 0007 CLRL : 
04 FB Baas CALLS Pb "AML SFORNAT LINE ; 
7é 74 A2 3C 0007 MOVZ2WL 116(S SP)~ + 1187 
000000006 oF DD 00079 PUSHL PANLAMSS. PROLOGVER : 
4 bp 007F PUSHL R4 : 
7E 04 00081 CLRL =(SP) : 
| 65 04 FB 90085 CALLS #4, ANLSFORMAT_LINE : 
0000" CF 9F 00086 1$ PUSHAB FL + 1192 
7E 10 Ae 9A OO0BA MOVZBL 18¢ PY, =(SP) : 
| 04 As OD 0008E PUSHL : 
00006 CF 03 FB 00091 CALLS + gANESCHECK _FLAGS : 
| 0B 10 A2 €9 00096 BLBC $ : 1196 
000000006 8F DD 0009A PUSHL paneRnss EXTENDERR + 1197 
0000G CF 01 FB QOOAO CALLS #1, ANLSFORMAT ERROR 3 
04 000A5 2$: RET + 1201 


; Routine Size: 166 bytes, Routine Base: $CODES + 0489 
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RMSCHECKA RMSCHECKA = Check a File Structure 15-sep-19 4 43:29:11 ponte Bliss-32 V4.0-74 
v04-000 ANLSREL_CELL = Format and Check a Relative File 14-Sep-1984 11:52:59 ANALYZ.SRCJRMSCHECKA.B52;1 
103 } oe ! Rsbttl "ANLSREL_CELL = Format and Check a Relative File Cell’ 
707 1204 1 ! Functional Description: : 
708 1205 1! This routine is responsible for prodyc ing » report and checking the 
64 ! ) : contents of a record cell in a relative file. 
711 1208 1 | Format Parameters: 
ne 1209 1! cell_bsd Address of a BSD Seer setae the celt. 
71 tele 3 3 We update it to describe the following cell. 
714 ter) 3} report A boolean, true if we are to produce a report. 
a2 isi¢ : } indent_level The indentation level of the report. 
717 514 1! Implicit Inputs: 
ie to) 8 ER seals 
720 1217 1! Implicit Outputs: 
rs) sig : global data 
723 1220 1 ! Returned Value: 
tse iss} : True if there is another cell, false if not. 
726 1223 i Side Effects: 
728 1225 1 ia= 
729 1226 1 
730 iss 1 : 
4 \ss8 § global routine anl$rel_cell(cell_bsd,report,indent_level) = begin 
ta 1230 2 bind 
ree \$3) 2 c = .cell_bsd: bsd; 
736 1533 S own a 
ets Sze § cell_flags_def: vector([5,long] initial ( 
739 1236 é 0; 
740 1237 . 
741 1238 2 uplit byte (Zascic 'DLCSV_DELETED'), 
se] 1s7p § vel ts byte (Zascic "DLC$V_REC') 
744 1241 ‘ ; 
745 1s6¢ local 
746 1243 2 sp: ref block(,bytel], 
ot 4 iste ; data_length: long, overhead: long, Length: long; 
749 1246 P 
750 1247 2! We bogts by calculating two lengths. The first is the length of only the 
3! 1568 ! actual data. The second is the overall length of the cell. 
75 1250 sp = .cCbsd$l_bufptr) + .c(bsd$l_offset); 
754 1251 data_length ="(selectoneu gntSol tact fatsy ctype) of set 
ed 1$3¢ Cfat$c_fixed]:  .anl$gl_fatCfatSw_maxrec); 
757 1254 Cfat$c_variable, 
ree 1533 fafee vied: -$pC1,0,16,0); 
es); 
760 1257 ; overhead = 1 + : 
761 1258 (if .anl$gl_fatCfat$v_rtype) eqlu fat$c_fixed then 0 else 2); 


——_—__—— 


| 


} 
| 
| 
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1259 Length = .overhead + 


1260 (if .anl$gl_fatlf 
| 6] -anl$gl_fatCfat$w 
1 88 ' We will assume that the 
1264 


3 
retative rite FECRESTIORE EBRD) YALL Sesaag hb. 


ociu rtypes eqlu fat$c_vfc then .anl$gl_fatlfat$b_vfcsize] else 0) + 
_maxfecd; 


cell fits in the bucket. Otherwise we would have 


! gone on to the next bucket last time. 
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RMSCHEC 
- v04-000 ANLSREL_CELL = Format and Check a Relative File 14-Sep-1984 11:52:59 CANALYZ.SRCJRMSCHECKA, B32;1 (13) 
769 1265 ! Now we can format the cell if requested. This will begin with a heading 
re , 66 i and the flag byte. 
ure 1268 if .report then ( 
77 1269 anl$format_line(4,.indent_level,anirms$_cell,.c{bsd$l_vbn],.clbsd$l_offset]); 
774 15% anl$format_skip j: 
4g \¢f) anl$format— “flegst. indent _level+l,anirms$_cellflags,.spl0,0,8.0],cell_flags_def); 
777 1598 ! Now we can dump the record with a nice heading. Only can do if the 
rr8 iste i record is present and not deleted. 
780 1s?6 4 f .spCdic$v_rec] and not .spldlc$v_deleted] then ( 
: 781 1277 & lo : 
; re 1278 4 data_dsc: descriptor; 
; 78 1279 4 
3: 784 1se0 4 anl$format_line(0,.indent_level+1,anirms$_celldata); 
; 785 P1281 4 build -descFiptor (dete, dsc 
: 786 P 1 8g 4 (if sant égl fatCfat$v_rtype] eqlu fat$c_fixed then 0 else 2) + 
3; 787 P1283 4 oot, Len ngt th, 
; «788 1 Be 4 
3; 789 1285 4 anl$format_hex(. tadont.. level+2, data_dsc); 
; 790 1286 3 bg 
; 791 1287 2); 
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! OK, now we have a few checks to make. 


4 
KA = Check a File Structure 18-se p-1984 23:59:11 
CELL = Format and Check a Relative File 14- RTS Ti 


Start with the flags. 


1:52:59 


anl$check_flags(.cCbsd$l_vbn],.sp(0,0,8,0],cell_flags_def); 


! Make sure that the data fits within the fixed cell size. 


-data_len 


= gtru .length-.overhead t 
anl$format_error(anirms$ Chadeelttit.. cCbsd$l_vbnJ); 


! Make sure that a VFC record is large enough to contain the header. 


if ocldledv rec) and not .c(dlc$v_deleted] then 
anl$gl_fatlfat$v =" typg3 egty fat$c_vfc and 
9 


! If another cell can fit in this bucket, then update the BSD to describe it. 


data. Léngth Lssu .an 


if .sp * 2*. length leqa .cCbsd$l_endptr] then ( 
c(bsd$l_offset] = .clbsd$l_offset) + . length; 


return 


rue; 


atCfat$b_ vixetae! then 
anl$format_error(anlfms$_vfctooshort,. clbsd$l _vbn)); 


AX-11 Bliss-32 v4.0 
ANALYZ.SRC RMSCHECKA, e 2:31 


' If there are more buckets, advance to the first cell in the next one. 


i Otherwise we're done. 
! end-of-file VBN in the FAT block, 


if semen i + + 2*.cCbsd$w_size] lequ .anl$gl_fat[fat$l_efblk] then ( 


_vbnj =_.clbsd$l_vbn] + .clbsd$w_Sizel; 


Crbedst “offset) = 0; 
anl$bucket(c,0); 
return true; 


return false; 


00000000 


vw 


»PSECT 
24 43 4C 44 OD 00120 P.AAF: .ASCII 
24 45 4C 44 09 O012E P.AAG: .ASCII 
»PSECT 


00000000 00000003 00008 enced t * eae 3 


00000000" 00000000° 00014 


-PSECT 

O1FC 00000 -ENTRY 

8 00006 fr 96 80006 part ty 
E 08 C2 0000 SUBL 


When we opened the file, we placed the 
Like for a sequential file. 


SPLITS,NOWRT ,NOEXE ,2 


<13>\DLC$V PELE ren 
<9>\DLCS$V_REC 


SOWNS ,NOEXE ,2 


0, 


SCODES,NOWRT,2 


ANLS$REL_ CELL 
ANL$GL 
#8, Sp" 


0 


FAT 


“ADDRESS P.AAF, P.AAG 


. RB 


Save R2,R3,R4,R5,R6,R7,R8 
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RMSCHECKA RMSCHECKA = Check a File Structure bese =1984 23:59:11 AX-11 Bliss=-32 V4.0-74 Pa 36 
v04-000 ANLSREL_CELL = Format and Check a Relative File 1a-8ep-19 4 #7523549 LANALYZ.SRCIRMSCHECKA.B 2:1 9 1a) 
56 04 AC DO 0O00A MOVL CELL_BSD, R6 ; 1231 
52 Oc Ab 08 A6 C1 O000E ADDL3 8 (R6J, 12(R6), SP + 1250 
50 68 DO 00014 MOVL  ANLSGL_FAT, RO + 1251 
01 60 04 00 FD 0017 CMPZ2V #0, #47 (RO), #1 + 1252 
06 12 0001C BNEQ 1$ : 
55 10 Ad 3¢ O01 MOVZWL 16(RO), DATA_LENGTH : 
17 11 000 BRB 4$ : 
02 60 04 00 ED 00024 1$ CMP7vV #0, #4, (RO), #2 + 1254 
67 TF 00029 BLSSU  2$ : 
03 60 04 00 ED 00028 CMP2V #0, #4, (RO), #3 : 
05 1B 00030 BLEQU 3$ : 
55 01 CE 900 : 2$ MNEGL #1, DATA_LENGTH : 
4 11 000 BRB 4$ 3 
55 01 A2 3C 00037 3$ MOVZWL 1(SP), DATA_LENGTH : 1255 
01 60 04 00 ED 00038 4$ CMPZ7V. #0, #4, (ROT, #1 + 1258 
04 12 00040 BNEQ 5$ : 
4 04 00042 CLRL = «RG : 
03 11 00044 BRB 6$ : 
54 02 DO 00046 S$: MOVL #2, R4 : 
54 D6 00049 6S: INCL OVERHEAD + 1257 
03 60 04 00 ED 00048 CMP2v #0, #4, (RO), #3 : 1260 
06 12 00050 BNEQ 7 : 
51 OF AO 9A 00052 MOVZBL 15(RO), R1 : 
02 11 00056 BRB 8$ : 
51 p4& 00058 7$: CLRL. RV : 
51 54 CO 0005A 8S: ADDL2 OVERHEAD, R1 : 1259 
53 10 AO 3¢ 0005p MOVZWL 16(RO), LENGTH + 1261 
53 51 CO 00061 ADDL2 1, LENGTH 3 
6F 08 AC 9 00064 BLBC REPORT, 11$ : 1268 
7E 04 Ab 7D 00068 MOVQ 4(R6), =(SP) : 1269 
000000006 &F dD 0006C PUSHL #ANLRMS$ CELL : 
0c ac OD O007¢ PUSHL  INDENT_LEVEL : 
04 DD 0007 PUSHL #4 : 
00006 CF 0S FB 00077 CALLS #5, ANLSFORMAT_LINE : 
7E d4 0007¢ CLRL = = (SP) : 1270 
00006 CF 01 FB O007E CALLS #1, ANLSFORMAT_SKIP : 
0000" CF 9F 00083 PUSHAB CELL_FLAGS_DEF > 1271 
7 62 9A 00087 MOVZBL (SP)> =(S : 
000000006 8F DD O008A PUSHL #ANLRMS$_CELLFLAGS : 
57 Oc AC 01 ¢1 00090 ADDL3 #1, INDENT_LEVEL, R7 : 
57 DD 00095 PUSHL 3 
00006 CF 04 FB 00097 CALLS #4, ANLSFORMAT_FLAGS : 
37 62 03 €1 0009C BBC #3. (SP), 11$ : 1276 
33 62 02 EO 000A0 BBS #2: (SP). 118 : 
OC000000G 8F DD BO0AA PUSHL #ANLRMS$.CELLDATA > 1280 
57 ovD OAA PUSHL R7 $ 
ze D4 OOOAC CLRL. = (SP) : 
0000G CF 0 FB OOOA CALLS #3, ANLSFORMAT_LINE 3 
01 00 «iB 04 00 €D 9008 CMPZV #0, #4, @ANLSGC_FAT, #1 3 1284 
04 12 00089 BNEQ 9$ ; 
30 D4 00088 CLRL =—s_- RO : 
03 11 000BD BRB 10$ ; 
50 92 DO OOOBF 9$: MOVL #2, RO ; 
bE 50 5 1 000C2 10$: ADDL3 DATA_LENGTH, RO, DATA_DSC : 
04 AE 01 A2 SE 600¢6 MOVAB 1(R23, DATA_DSC+4 : 
35 DD 000CB PUSH S : 1285 
7E Oc ac 02 C1 000CD ADDL3 #2, INDENT_LEVEL, =(SP) : 


4 
RMSCHECKA RMSCHECKA = Check a File Structure ; 1 ~3007 138% $3:23:]) AX=11 Bliss-32 V4.0-7 
v04=000 ANLSREL_CELL = Format and Check a Relative File 14-Sep-1984 11:52:59 ANALYZ.SRCJRMSCHECKA. 5 2:1 
00006 CF 02 FB 9002 CALLS #2, ANLSFORMAT_HEX 
0000' CF 9F 090 11$ PUSHAB CELL_FLAGS_DEF 
7E 62 9A 00008 MOVZBL (SP); =(SPY 
04 Ag DD OOODE PUSHL  4(R65 
00006 CF 9 FB O0E1 CALLS #3, ANLSCHECK FLAGS | 
53 4 C3 00066 SUBL OVERHEAD LE ENGTH, 
56 55 D1 OOOEA CMPL = DATA FENGTHS 
O& 18 OOOED BLEQU 12$ ~ 
04 Ab DD OODEF PUSHL  4(R6) 
000000006 1 8F DD O00Fe PUSHL #ANLRMS$_BADCELLFIT 
0000G CF be FB OOOF CALLS Ae ANLSFORMAT_ERROR 
24 64 03 €1 90F 12$: BBC #3, (R6), 13 
20 BG 08 EO 00101 BBS #2, (RO), 13$ 
50 68 DO 00105 MOVL ANLSCL FAT RO. 
03 60 04 00 ED 00108 CMP2V (RO), 
16 12 0010D BNEQ 
55 OF ad 08 00 ED 0010F CMPZ2v #0 - 15(RO), DATA_LENGTH 
OE 1B 00115 BLEQU 138 
04 A6 DD 00117 PUSHL  4(R6) 
000000006 8F DD OO11A PUSHL #ANLRMS$_VFCTOOSHORT 
0000G CF 08 FB 00120 CALLS #2, oe eon ERROR 
50 6243 3E 00125 13$:  MOVAW (SP) ELEN THI, RO 
10 Ab 50 01 00129 CMPL = RO ibang) 
06 1A 0012D BGTRU 14 
08 Ab 53 CO O012F ADDL2 LENGTH, 8(R6) 
22 11 00133 RB 15$ 
50 02 A6 3C 00135 148 MOVZWL 2(R6), 
52 04 B640 3€ 00139 MOVAW @4(R6SCROJ, R2 
51 68 DO 0013E MOVL ANLSGL_FAT, R1 
08 Al 52 D1 00141 CMPL = R2,, BC 
14 1A 00145 BGTRU 16$ 
06 Ab 50 CO 00147 ADDL2 RO, 4(R6) 
08 Ab D4 00148 CLRL =—_- BCR 
7E D4 OO014E CLRL = = (SP) 
56 DD 00150 PUSHL  R6 
00006 CF 02 FB 00152 CALLS #2, ANLSBUCKET 
50 01 pO 00157 158: MOVL #1. RO 
04 0015A RET 
50 D4 0015B 168: CLRL ~— RO 
04 0015p RET 


; Routine Size: 350 bytes, Routine Base: $CODE$ + OS5F 
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LOG_ CHE CKSUMS - Check Prolog Block Check 1a: ~300n 138% 1:52:59 ANALYZ.SRC RASCNECKA. B92; 1 


vt 
zn 


Page 38 RY 
° ae 


fn 
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RMSCHEC 
-000 ANLSPRO ve 
3 ! : } poeet "ANLSPROLOG_CHECKSUMS = Check Prolog Block Checksums' 
8 ¢ 1 § 1 | Functional Description: 
8 1 1 This routine is responsible for check tng the checksums that are 
834 13208 1 present at the end of prolog blocks. is pertains to both relative 
tH 1368 : and indexed files. 
eee 133) : Formal Parameters: 
non 
839 1338} | 
840 1334 1°! Implicit Inputs: 
Bes 1332 : ; global data 
Bes 1337 1: Implicit Outputs: | 
aie 1338 . . global data 
B46 1340 | { Returned value: | 
none 
848 13g 1! 
HH Ht . he Side Effects: 
851 1345 1 in | 
852 1346 1 | 
853 1347 1 | 
Sze 18 3 global routine anl$prolog_checksums: novalue = begin 
856 1350 2 Local 
Bet 1323 § yg Long, 
+44 1327 $ Bp: "ret — byte], | 
n: 
Bet 1322 $ ane aes “word, i: Long; | 
863 1357 2 : ; : F ; 
+e 1328 7 ! we will be reading in the prolog blocks as if they were single block buckets. 
866 1360 2 init_bsd(p); 
g67 136! § p(bsd$w_ size] = 1; 
a6? 1368 § ! We begin by calculating the number of prolog blocks. | 
| 
a7 1303 3 if .anl$ql_fat(fat$v_fileorg] eqlu fat$c_relative then | 
18 Et § ! Relative files always have one prolog block. 
875 1369 2 blocks = 1 
876 1370 § 
877 1371 else ( 
478 1376 ; 
79 137 ! The number of prolog blocks in an indexed file depends on the 
tt} 1374 ; ' number of keys and areas. We have to read in the first prolog 
rt 132? ' block to determine this. | 
Hy 1377 p{bsd$l_vbn] = aL 
884 1378 page ob Ty: 
885 1379 = .plbsd$l_butptrd; | 
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RMSCHECKA RMSCHECKA = Ch -1984 23:59:11 Ax-11 Bliss-32 V4.0-74 Page 39 RI 
v04=-000 ANLSPROLOG_CHECKSUMS = Check Prolog Block Check 12280 8= 1 O84 1:52:59 ANALYZ.SRC RASCHECKA. 892: 1 (15) v¢ 
; 887 1 &] ! The key descriptors are first, followed by the area descriptors. 
; 888 1 ¢ : Thus we can determine the total prolog blocks from the first 
3 34 ; S? ! area descriptor VBN and the number of areas. 
; 891 1385 blocks = (Petpet asp avbn) + 
; 89 1386 (.pp(plg$B_amaxJ-1) / (512/area$c_bln); 
; 89 1387 ); 
> 894 1388 
3 344 1390 ! Now we can loop through the prolog blocks and read them in one at a time. 
3 6897 1391 incru vbn from 1 to .blocks do ( 
; 898 1336 
; 899 139 pCbsd$l_vbn] = .vbn; 
3 200 Hf anl$bucket(p,0); 
; 90 139% 3 ! Sum up the first 255 words of the block, ignoring overflow. This is | 
; 90 1397 ; ! the correct checksum, but if it's wrong, tell the user. 
3 904 1398 
> 905 1399 4 begin | 
: 906 1400 4 bind 
; 907 1401 4 word_vector = .pCbsd$l_bufptr]): vector(256,word); 
: 908 es 4 
; 909 1403 4 checksum = 0; 
; 910 1404 4 incru i from 0 to 254 do : 
s $i 1405 4 checksum = .checksum + .word_vectorl.i]; 
3; Pi2 1406 4 
; «913 1407 4 if .checksum nequ .word_vector(255] then 
; 914 1408 4 anl$format_error(anlrms$_badchecksum,.vbn); 
: 915 1409 3 end; 
; «916 1410 2); 
g 917 1411 2 
: 918 1412 2 anl$bucket(p,-1); 
s 919 1413 2 return; 
: 920 1414 2 
s Geil 1415 1 end; 
007C 00000 ENTRY ANLSPROLOG_CHECKSUMS, Save R2,R3,R4,R5,R6 : 1348 | 
56 0000G CF 9E hey MOVAB ANLSBUCKET, R6 3 
5E 18 C2 0000 SUBL2 #24, SP 3 
18 00 6E rt 2c 8 oe movcS #0, (SP), #0, #24, P ; 1360 
02. AE 01 B60 00010 MOV #1, P+2 : 1361 | 
01 0000G OF 04 04 ED 00014 CMPZV «#4, #4, GANLSGL_FAT, #1 3 1365 
05 12 00018 BNEQ : 
54 01 pO 00010 MOVL #1, BLOCKS 3: 1369 
20 11 Bp0s9 BRB 2$ 3 
04 AE 01 DO 00022 1$: MOVL #1, P+4 3: 1377 
7E D4 00036 CLRL 0 = (§P) : 1378 
04 AE 9F 00028 PUSHAB  P ; 
66 0 °B 0002B CALLS #2, ANLSBUCKET : 
50 OC AE DL O002E MOVL + PP : 1379 
51 67 AO 9A 00032 MOVZBL 103(PP), RI > 1386 | 
51 D7 00056 DECL R1 : 


RMSCHECKA RMSCHECKA = Ch 
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51 0 
4 66 ti 

54 51 

52 1 
9 
04 AE ; 
04 aS 

66 0 
51 oc a 

5 
50 
53 6140 
50 
QOOOOOFE 8F 29 
OIFE C1 53 
0D 
52 

000000006 8F 
0000G CF 9 
5 
54 52 
C2 

7E 01 

04 AE 
66 02 


k a File Structure 


k 

g6 000 
A 000 
CO 000 
DO 000 
11 000 
dO B00 
D4 000 
9F 000 
FB 000 
DO 000 
B4 000 
D4 000 
AO 000 
D6 000 
Di 000 
1B 000 
B1 000 
13 000 
DD 000 
DD 000 
FB 000 
06 it 
D1 000 
1B 000 
CE 000 
9F 000 
FB 000 
04 000 


3 Routine Size: 143 dytes, Routine Base: $CODE$ + 06BD 


PSECT SUMMARY 
Bytes 
312 NOVEC,NOWRT, 


16¢8 NOVEC ,NOWRT, 
28 NOVEC, WRT, 


Library Statistics 


922 1416 1 

923 1417 0 end eludom 
Name 

SPLITS 

SCODES 

SOWNS 
File 


~-$255$DUA28: CSYSLIBILIB.L32;1 


Sym 
Total Loa 


18619 


RD ,NO 
RD , 
RD ,NO 


bols 
ded 
41 


wm 
ow 


Pa 
Lad 


“ 
bad 


C009 09.09 SIN NINO AAO HII BE EI 
o 
bad 


co 
nap Sonor Our FPO—-"WOnNWOUAINYTO"DWO —— 


Attributes 


EXE ,NOSHR, 
EXE ,NOSHR, 
EXE ,NOSHR, 


0 


4 23 

4 11 ANALYZ.SRCJRMSCHECKA 

DIVL2 + R1 

MOVZBL 102(PP), BLOCKS 

ADDL2 1, BLOCKS 

MOVL e 

BRB 

MOVL VBN, P+4 

CLRL = = (SP) 

PUSHAB 

CALLS #2, ANL$BUCKET 

MOVL P+12, RI 

CLRW CHECKSUM 

CLRL I 

ADDW2 (R1)CIJ, CHECKSUM 

INCL 

CMPL 1, #254 

BLEQU 4§ 

CMPW GHECKSUM, 510(R1) 

BEQL $ 

PUSHL VBN 

PUSHL #ANLRMS$_BADCHECKSUM 

CALLS #2, ANLSFORMAT_ERROR 

INCL VBN 

CMPL VBN, BLOCKS 

BLEQU 

MNEGL #1, =(SP) 

PUSHAB P 

CALLS #2, ANLSBUCKET 

RET 

-EXTRN LIBSSIGNAL 

LCL, REL. CON,NOPIC,ALIGN(2) 
cot. 6PELe GON NOP 15 Al 1GNig? 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
1000 00:01.9 


4 
Eee FEY Gd LS eIaaB deh 


74 Pa 40 
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(15) 


ae 
RMSCHECKA RMSCHECKA = Check a File Structure sep -1 AX-11 Bliss=32 V 
VoesO00 ANLSPROLOG_ CHECK KSUM S = Check Prolog Block Check | Sep br 1382 73 33: 4g ANALYZ.SR ROIR RASCHE ka B82: 31 
; COMMAND QUALIFIERS 
E BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RMSCHECKA/OBJ=OBJ$:RMSCHECKA MSRC$:RMSCHECKA/UPDATE=(ENH$: RMSCHECKA) 


3; Size: 1868 cgge + 340 data bytes 
; Run Time: 00:32.1 

; Elapsed Time: 01:42.4 

3 Lines/CPU Min: 2651 

3; Lexemes/CPU-Min: 16817 

3 spe | Used: 238 pages 

3 3 


; Compilation Complete 


reef 


CR 
v 
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